unit mSets;

{$i mPlatform.inc}

interface

uses
  Classes, SysUtils{$ifndef virtualpascal},Types{$endif}//,Windows
  ;
const
  wm_Create = 1;
  wm_paint = 15;
  wm_Size = 5;
  wm_MouseMove = $200;
  wm_LButtonDown = $201;
  wm_RButtonDown = $204;
  wm_LButtonUp = $202;
  wm_RButtonUp = $205;
  wm_MButtonDown = $207;
  wm_MButtonUp = $208;
  wm_KeyDown = $100;
  wm_KeyUp = $101;
  wm_Destroy = 2;
  wm_Close = 16;
  wm_ShowWindow = $18;
  wm_MouseLeave = $2A3;


  mk_Control = 8;
  mk_Shift = 4;
  mk_LButton = 1;
  mk_RButton = 2;
  mk_MButton = 16;


type TMessage = record
       MSG:LongInt;
       WParam:LongInt;
       case Boolean of
       true:(LParam:LongInt;Result:LongInt);
       false:(LParamLo,LParamHi:Word;ResultLo,ResultHi:word);

     end;
    {$ifdef VIRTUALPASCAL}
    DWORD=LongInt;
    cint=LongInt;
    cUint=DWord;
    {$endif}
implementation

end.
